restore

dodemotext

left bottom 20 add

prntr storerect

dodemotext

left top 30 sub

prntr storerect

save

grestore} bdf

/Symbol findfont 10 scalefont setfont

div 0 demotext ashow

right left sub 36 sub demotext stringwidth pop sub demotext length

left 18 add bottom moveto

0 setgray

2 copy 10 add exch pop right exch storerect rectpath fill

1 setgray

gsave

/Times-Italic findfont 10 scalefont setfont

/dodemotext {

/demotext (Aldus FreeHand 3.1 Demonstration Version) def

/prntr{^H ^I ^J ^G}def     %print rect